home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Tiger Disk 21
/
Tiger_Disk_021_19xx_Tiger-Crew-Disk_de_Side_B.d64
/
merry christmas
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2023-02-26
|
2KB
|
64 lines
1 poke53280,0:poke53281,15:poke646,6 :print"[147]":poke53272,20
2 print" [213][166][168][201] [213][168][168][201] [213][205]"
3 print"[213][166][166][201][201][168][201] [213][205] [202][166][166][203] [213]'[205]/[205]"
4 print" [202][166][203] [206][205][201][213][206][201], [202][166][168][168][203][203] [206][213][205]>[205] [201]"
5 print" '[206]'/'[205]/[201][220][201][206][205] [206][205][187] '' [220][220])[216][216][205]"
6 print" '[216][216][202][168][168][206][216][206][205][216][216][205][201] [206][188][190][205] ' [172] [220][220]>[205][216][216]"
7 print" [213]<[203][168][205][220][168][206][206] [201][201][205][201][205] [207][183][183][208] [206][163][163][163][205] '[168][168][220][220][206][205]"
9 print"[213][178][178][178]/[223][216][216][205]<[183][184][197][196][195][198][175][164][164][199][176][174][167] [216][216][190][190][190][190][165][216][216][216][216][168][168][216][216]"
10 print"[213][178][178][178][178][216][216][216][216][216][183][197][197][197][196][195][195][198][168][165][173][189][200][197][196][195] [206][205] [198][210][164][168],,[216][168]"
11 print"[166][216][216][216][183][197][196][196][196][196][195][198][198][220][220][168][168][168][183][183][183][183][183][183][168] [204][186] [216][216][196][192][192][195][198][198] "
12 print"[166][166][216][216][216][216][220][220][168][183][166][166][166][166][166][166][166][206][205][175][175][216][168][216][216][216]([213][201]) [216][216][216][216][168][168][168][168]"
13 print"[166][175][210][210][198][198][195][195][196][197][197][206][205] [168][216][200][172][187][187][172][205] [216][216] [[202][203]][197][197][197][197][205][213][216][168][168]"
14 print"[163][183][184][184][196][166][166][206][163][163][163][165][187][180][220][168][168][188][190] [167][168][168][168][216][199][213][201][200] [215][215][215] [199][220],,"
15 print"[220][216][195][195],,[168][165][190][190][190][165][161][165][216][216][216] [206][205][187][216][216][216] [220][199][173][189][200] uuu [199][216][216][168]"
16 print"[198][198][220][220]''[168][168][216][216][216][168][168][220][220][216][216] [207][216][207][208][216][216][216][216][199][182][161][200]=====[199][168][168][220]"
17 print"[220][164][164][175][175][185][185][162][162][195][196][197][216][220][168][220][168][168][216][216][216][216][216][216][216][168][184][184][184][184][184][184][184][184][184][184][168][168][220]"
18 print"[218][218][218][218][218][218][218][218][218][218][218][218][218][218][218][218][218][218][218][218][218][218][218][218][218][218][218][218][218][218][218][218][218][218][218][218][218][218][218]"
19 print:print"[156] ein frohes weihnachtsfest !"
20 print
34 g=2^(1/12)
36 si=54272
38 pokesi+24,15
40 poke si+5,16+9:poke si+12,16+9: poke si+19,16+9
50 poke si+6,4*16+4:poke si+13,4*16+4: poke si+20,4*16+4
53 read n
55 if n= 1then620
56 k=k+1
58 h=g^n*278.45827
60 hi=int(h/256)
62 lo=int(h)-hi*256
65 on k goto 68,72,76
68 l1=lo:h1=hi:goto53
72 l2=lo:h2=hi:goto53
76 l3=lo:h3=hi:
100 poke si,l1:poke si+1,h1
110 poke si+7,l2:poke si+8,h2
120 poke si+14,l3:poke si+15,h3
140 poke si+4,17:poke si+11,17: poke si+18,17
165 k=0
170 read d
210 for t=1 to d:next
220 k=0
230 goto 53
250 restore
252 l6=l6+1
258 if l6 >1 then 300:
260 goto 53:
300 poke si+4,0:poke si+11,0:poke si+18, 0
500 data 53,00,00,10 ,00,53,53,10 , 53,57,53,10 ,60,53,57,400
510 data 53,57,60,400,62,58,53,400, 60,53,57,400,0,0,0,10
520 data 58,55,53,10,57,53,53,10, 55,52,48,10,53,53,53,10
530 data 57,53,48,10,60,41,53,10, 57,38,53,10, 48,52,55, 900
540 data 0,0,0,10,55,52,52,10, 52,55,55,10,53,57,57,10
550 data 55,58,58,400,48,55,55,400, 53,57,53,400,60,60,57,400
560 data 0,0,0,10,57,53,53,10, 52,55,55,10,53,57,57,10
570 data 55,58,58,400,48,52,55,400, 53,53,57,10,53,55,58,10
580 data 53,57,60,400,45,60,45,10, 65,62,46,10,48,57,60,10
590 data 55,48,58,10,48,53,57,400, 52,55,48,400,53,53,53,1000
600 data 0,0,0,1000,1000,1
620 print
635 print" lukian ";
640 print" [218][218][218][218][218][218] "
700 poke646,14:poke198,0:wait198,1:print"[147]":end